home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 92 / 092.d81 / crypt boot 92 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  77 lines
  1. 10 poke53280,0:poke53281,0:print"[147]";
  2. 20 poke55,0:poke56,96:clr
  3. 22 dv=peek(186):ifdv<8thendv=8
  4. 25 gosub60000
  5. 30 sys57812"toolbox 92",dv,0:poke781,0:poke782,192:sys65493
  6. 40 sys57812"cryptic 92",dv,0:poke781,0:poke782,96:sys65493
  7. 45 print"[147]"
  8. 50 sys49152,7,4,15,7,34,160,12
  9. 52 sys49152,7,2,13,5,31,160,15
  10. 54 sys49152,7,4,13,32,32,101+128,12
  11. 60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  12. 62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
  13. 65 printtab(7)"1] [208]rint [208]uzzle
  14. 70 [153][163]7)"2] (NULL)rint (NULL)olution
  15. 75 printtab(7)"3] [211]olving [201]nstructions
  16. 77 [153][163]7)"4] (NULL)uzzle valxplanation
  17. 79 printtab(7)"5] [197]xit"
  18. 80 printtab(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  19. 81 sys49152,7,19,20,0,39,98,11
  20. 82 sys49152,7,23,24,0,39,98+128,11
  21. 83 sys49152,4,0:poke198,0
  22. 85 sys49152,3,0,0,1,14,20,160,"[208]ress 1-5 to select.
  23. 90 [161]k$:[139]k$[178]""[167]85
  24. 95 k[178][197](k$):[139]k[179]1[176] k[177]5[167]85
  25. 100 [145]k[141]1000,2000,3000,5000,4000
  26. 105 [137]85
  27. 110 :
  28. 1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
  29. 1002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  30. 1005 [161]k$:[139]k$[178]""[167]1002
  31. 1010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  32. 1012 [158]49152,10,4,3
  33. 1015 [158]49152,7,20,23,0,39,160,14
  34. 1020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  35. 1025 [158]24576:[158]49152,5,0:[142]
  36. 1030 :
  37. 2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
  38. 2002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  39. 2005 [161]k$:[139]k$[178]""[167]2002
  40. 2010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  41. 2012 [158]49152,10,4,3
  42. 2015 [158]49152,7,20,23,0,39,160,14
  43. 2020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  44. 2025 [158]24576[170]3:[158]49152,5,0:[142]
  45. 2030 :
  46. 3000 [153]"list":[158]49152,13,dv,[198]("\"),"cryptic instr 92"
  47. 3005 [158]49152,5,0:[142]
  48. 3010 :
  49. 4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
  50. 4002 [158]49152,3,0,0,1,14,20,160,"atnre (NULL)ou (NULL)ure?  [y/n]"
  51. 4005 [161]k$:[139]k$[178]""[167]4002
  52. 4010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  53. 4012 [151]55,0:[151]56,160:[156]
  54. 4050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  55. 4055 [139]er%[179][177]63[167][128]
  56. 4060 [151]646,[194](53281)
  57. 4062 [153]"loadwaitload"[199](34)"hello connect"[199](34)",8"
  58. 4065 [153]"run"
  59. 4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  60. 4080 :
  61. 5000 [153]"list":[158]49152,13,dv,[198]("\"),"explanation 92"
  62. 5005 [158]49152,5,0:[142]
  63. 5010 :
  64. 10000 [159]15,8,15,"s0:crypt boot 92":[160]15:[148]"crypt boot 92",8:[128]
  65. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  66. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  67. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  68. 60030 z$(0)[178]"len (NULL) (NULL) (NULL) (NULL) right$ len   len (NULL) (NULL) (NULL) val (NULL)   # 9 2"
  69. 60035 z$(1)[178]"by ascender (NULL)ucker & peekarbara (NULL)chulak"
  70. 60040 z$(2)[178]"(NULL)1.0 (len) 1992 by (NULL)oftdisk, right$nc."[170][199](13)
  71. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  72. 60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  73. 60070 z$(5)="shareware or in the public domain."
  74. 60080 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
  75. 60090 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
  76. 60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  77.